home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / bldpas.zip / BLDPAS.DOC < prev    next >
Text File  |  1993-04-15  |  32KB  |  709 lines
  1.  
  2.  
  3.                     *********************
  4.                     Copyright has been applied for
  5.                           BLDPAS
  6.                     Registration Fee: $20.00
  7.                     Source Code:      $15.00
  8.  
  9.                     Registration of program gets SOURCE
  10.                     ZOOMCHAR or LOTTERY program for $5.00 off.
  11.  
  12.                     DBA TEKSERV
  13.                     %William A. Phillips
  14.                     RT 1 BOX 397 Piney Grove
  15.                     Danbury, Nc 27016     USA
  16.                     COMPUSERV 75250,1012
  17.                     **********************
  18.  
  19. *N*
  20.       Build Program is a simple but flexible way to build a screen with
  21.  associated cursor contorls and database without programming. Although you
  22.  can program changes since a program is generated.
  23.  
  24.  REQUIREMENTS: PC AT 286 or compatible, TURBO Pascal 4.0 or higher compiler.
  25.  
  26.  
  27.  NOTE: Rapsvars.Pas source code contains the global variables.
  28.        The PASCALDB tpu unit sent is a TURBO PASCAL 7.0 Compiled unit. If
  29.        you have trouble with an older compile the PASCALDB.T40 is a 4.0
  30.        compile. You can rename the PASCALDB.TPU unit to something and
  31.        rename the PASCALDB.T40 to PASCALDB.TPU.
  32. *N*
  33.  
  34.  
  35.  
  36.                    PROGRAM BUILD FOR PASCAL
  37.  
  38.  Example Screen:
  39.  
  40.  XXXXXXXX                          INVOICE                            XXXXXXXX
  41.  
  42.  INVOICE:  XXXXXXXXX
  43.  CUSTOMER: XXXXXXXXX
  44.  NAME:     XXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXX X
  45.  ADDRESS:  XXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXX XX XXXXXXXXX
  46.  
  47.  STOCK   DESCRIPTION                      VENDOR   EACH       TOTAL
  48.  _____   _______________________________  ______   _________  _________
  49.  XXXXX   XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  XXXXXX   XXXXXXXXX  XXXXXXXXX
  50.  XXXXX   XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  XXXXXX   XXXXXXXXX  XXXXXXXXX
  51.  XXXXX   XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  XXXXXX   XXXXXXXXX  XXXXXXXXX
  52.  XXXXX   XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  XXXXXX   XXXXXXXXX  XXXXXXXXX
  53.  XXXXX   XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  XXXXXX   XXXXXXXXX  XXXXXXXXX
  54.  XXXXX   XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  XXXXXX   XXXXXXXXX  XXXXXXXXX
  55.  XXXXX   XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  XXXXXX   XXXXXXXXX  XXXXXXXXX
  56.  XXXXX   XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  XXXXXX   XXXXXXXXX  XXXXXXXXX
  57.  XXXXX   XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  XXXXXX   XXXXXXXXX  XXXXXXXXX
  58.  XXXXX   XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  XXXXXX   XXXXXXXXX  XXXXXXXXX
  59.                                                    Sub Total  XXXXXXXXX
  60.                                                    Tax        XXXXXXXXX
  61.                                                    TOTAL      XXXXXXXXX
  62. XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
  63. XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
  64.  
  65. *N*
  66.                              USER GUIDE
  67.  
  68.       To begin load the BLDPAS disk onto a directory of your choice.
  69.  If you are going to use the "TURBO" Pascal compiler from Borland load the
  70.  BLDPAS programs onto the "\PASCAL" directory.
  71.  
  72.       Next load the Database disk onto the "\BLDPAS" directory.
  73.  
  74.       You are then ready to begin building a program by entering "BLDPAS" and
  75.  depressing enter. You should see a screen like the following.
  76.  
  77.                            PROGRAM BUILD FOR PASCAL
  78.  
  79.                            Program Name: ________
  80.  
  81.                            Text Color:   B  (R - K)
  82.  
  83.                            Back Color:   K  (R - K)
  84.  
  85.                            Box  Color:   R  (R - K)
  86.  
  87.  R-Red Y-Yellow G-Green B-Blue C-Cyan W-WHite K-Black M-Magenta
  88.  
  89.  
  90.       Enter a program name up to 8 characters. The text color is the default
  91.  color of the screen text. You can enter a number from "0" thru "9". "1" is the
  92.  default for this screen which is blue. The colors are:
  93.  
  94.        K - Black
  95.        B - Blue
  96.        G - Green
  97.        R - Red
  98.        M - Magenta
  99.        C - Cyan
  100.        Y - Yellow
  101.        W - White
  102.  
  103.       These text colors can be changed later in the execution for the modifiable
  104.  fields.
  105.  
  106.       Enter the Back color or the color of the backround of the screen.
  107.  The default is "0" which is Black.
  108.  
  109.       The Box color if present will put a box around the outside of the screen
  110.  with defult color Red. If you do not want a box Blank this field out.
  111.  
  112.       Press "ENTER" when done. You will then see an empty screen on which you can
  113.  begin entering characters which will comprise you screen.
  114.  
  115.       How this screen WORKS:
  116.  
  117.       The Tab,Cursor, Home, End, Enter, And ESC keys are function keys.
  118.  Tab will tab to the end of the line and back. Cursor will move the cursor.
  119.  The Home and End key will place the cursor at the top left or bottom left
  120.  of the screen respectively.
  121.  
  122.       The 24th line is reserved for action literals for your program and the
  123.  25th line is reserved for messages.
  124.  
  125.  
  126.       To enter a screen you just type the characters just as you would like to
  127.  see the screen to appear with one exception. Wherever you plan to enter data
  128.  or display it Type an "X" where the field is to start for the length of the
  129.  field. THERE MUST BE A BLANK BEFORE THE START OF A DATA FIELD.
  130.  
  131.       For example the screen on the cover is an example of a screen entered to
  132.  be built. Notice the "X" characters. These represent fields into which
  133.  you will enter or display data.
  134.  
  135.  
  136.  XXXXXXXX                          INVOICE                            XXXXXXXX
  137.  
  138.  INVOICE:  XXXXXXXXX
  139.  CUSTOMER: XXXXXXXXX
  140.  NAME:     XXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXX X
  141.  ADDRESS:  XXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXX XX XXXXXXXXX
  142.  
  143.  STOCK   DESCRIPTION                      VENDOR   EACH       TOTAL
  144.  _____   _______________________________  ______   _________  _________
  145.  XXXXX   XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  XXXXXX   XXXXXXXXX  XXXXXXXXX
  146.  XXXXX   XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  XXXXXX   XXXXXXXXX  XXXXXXXXX
  147.  XXXXX   XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  XXXXXX   XXXXXXXXX  XXXXXXXXX
  148.  XXXXX   XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  XXXXXX   XXXXXXXXX  XXXXXXXXX
  149.  XXXXX   XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  XXXXXX   XXXXXXXXX  XXXXXXXXX
  150.  XXXXX   XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  XXXXXX   XXXXXXXXX  XXXXXXXXX
  151.  XXXXX   XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  XXXXXX   XXXXXXXXX  XXXXXXXXX
  152.  XXXXX   XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  XXXXXX   XXXXXXXXX  XXXXXXXXX
  153.  XXXXX   XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  XXXXXX   XXXXXXXXX  XXXXXXXXX
  154.  XXXXX   XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  XXXXXX   XXXXXXXXX  XXXXXXXXX
  155.                                                    Sub Total  XXXXXXXXX
  156.                                                    Tax        XXXXXXXXX
  157.                                                    TOTAL      XXXXXXXXX
  158. XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
  159. XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
  160.  
  161.       USE THE "ESC" KEY WHEN DONE WITH THIS SCREEN
  162.  
  163.       The two data fields on the top line are for the date and time.
  164.  
  165.       When you have completed your screen depress the "ESC" key. You will then
  166.  be ready to enter the Type, Attribute, Color, and Key designations.
  167.  
  168.       At this point you can depress the ENTER key four times without entering
  169.  any other data to get the generate screen. By depressing ENTER at the generate
  170.  screen you will genereate the program. The data fields will be defaulted to
  171.  character fields. The Attributes will be modifiable. The Color will be Blue.
  172.  And the first modifiable field will have a an index.
  173.  
  174.       Otherwise you will be prompted to enter the Type of field. The types of
  175.  fields are either character or numeric. If the field is a character field
  176.  simply leave an "X" in the first byte of the field. If the field is numeric
  177.  enter a "N" in the first byte of the field. If you want the field to be an
  178.  amount field enter "$" in the first byte of the field.
  179.  
  180.  XXXXXXXX                          INVOICE                            XXXXXXXX
  181.  
  182.  INVOICE:  NXXXXXXXX
  183.  CUSTOMER: NXXXXXXXX
  184.  NAME:     XXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXX X
  185.  ADDRESS:  XXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXX XX XXXXXXXXX
  186.  
  187.  STOCK   DESCRIPTION                      VENDOR   EACH       TOTAL
  188.  _____   _______________________________  ______   _________  _________
  189.  XXXXX   XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  XXXXXX   XXXXXXXXX  XXXXXXXXX
  190.  XXXXX   XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  XXXXXX   XXXXXXXXX  XXXXXXXXX
  191.  XXXXX   XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  XXXXXX   XXXXXXXXX  XXXXXXXXX
  192.  XXXXX   XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  XXXXXX   XXXXXXXXX  XXXXXXXXX
  193.  XXXXX   XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  XXXXXX   XXXXXXXXX  XXXXXXXXX
  194.  XXXXX   XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  XXXXXX   XXXXXXXXX  XXXXXXXXX
  195.  XXXXX   XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  XXXXXX   XXXXXXXXX  XXXXXXXXX
  196.  XXXXX   XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  XXXXXX   XXXXXXXXX  XXXXXXXXX
  197.  XXXXX   XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  XXXXXX   XXXXXXXXX  XXXXXXXXX
  198.  XXXXX   XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  XXXXXX   XXXXXXXXX  XXXXXXXXX
  199.                                                    Sub Total  XXXXXXXXX
  200.                                                    Tax        XXXXXXXXX
  201.                                                    TOTAL      XXXXXXXXX
  202. XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
  203. XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
  204.  
  205.  
  206.       As you can see the INVOICE and Customer fields are numbers and the "EACH"
  207.  and "TOTAL" fields are amounts.
  208.  
  209.       Depress "ENTER" when done.
  210.  
  211.       You will then be prompted for the "ATTR" of the field. The Attribute
  212.  designates whether the field is to be modifiable by the keyboard or protected
  213.  (Display only). Place an "X" in the first byte of the field if the field is to
  214.  be modifiable. Place an "P" in the first byte of the field if the field is to
  215.  be protected. Since the first two fields are the date and time you can enter a
  216.  "P" in these fields. Enter "N" if the field is to be Non Display. There is no
  217.  special editing for numeric or amount fields yet. You can inquire MAPTYP to
  218.  see what type of field it is. Editing is planned in a later release.
  219.  
  220.  
  221.  PXXXXXXX                          INVOICE                            PXXXXXXX
  222.  
  223.  INVOICE:  NXXXXXXXX
  224.  CUSTOMER: NXXXXXXXX
  225.  NAME:     XXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXX X
  226.  ADDRESS:  XXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXX XX XXXXXXXXX
  227.  
  228.  STOCK   DESCRIPTION                      VENDOR   EACH       TOTAL
  229.  _____   _______________________________  ______   _________  _________
  230.  XXXXX   XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  XXXXXX   XXXXXXXXX  XXXXXXXXX
  231.  XXXXX   XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  XXXXXX   XXXXXXXXX  XXXXXXXXX
  232.  XXXXX   XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  XXXXXX   XXXXXXXXX  XXXXXXXXX
  233.  XXXXX   XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  XXXXXX   XXXXXXXXX  XXXXXXXXX
  234.  XXXXX   XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  XXXXXX   XXXXXXXXX  XXXXXXXXX
  235.  XXXXX   XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  XXXXXX   XXXXXXXXX  XXXXXXXXX
  236.  XXXXX   XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  XXXXXX   XXXXXXXXX  XXXXXXXXX
  237.  XXXXX   XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  XXXXXX   XXXXXXXXX  XXXXXXXXX
  238.  XXXXX   XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  XXXXXX   XXXXXXXXX  XXXXXXXXX
  239.  XXXXX   XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  XXXXXX   XXXXXXXXX  XXXXXXXXX
  240.                                                    Sub Total  XXXXXXXXX
  241.                                                    Tax        XXXXXXXXX
  242.                                                    TOTAL      XXXXXXXXX
  243. XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
  244. XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
  245.  
  246.      Depress ENTER when done.
  247.  
  248.  
  249.      You will be prompted to enter the color for each data field. The colors
  250.  for the fields are:
  251.  
  252.      B - Blue
  253.      G - Green
  254.      R - Red
  255.      C - Cyan
  256.      Y - Yellow
  257.      W - White
  258.  
  259.       Enter the color letter of your choice in the first byte of each field. You
  260.  can leave an "X" in the field and the field color will default to the default
  261.  text color you entered on the main screen. The following entries would make the
  262.  date and time entries White, the Invoice and Customer numbers Yellow, and the
  263.  other fields Green.
  264.  
  265.  
  266.  WXXXXXXX                          INVOICE                            WXXXXXXX
  267.  
  268.  INVOICE:  YXXXXXXXX
  269.  CUSTOMER: YXXXXXXXX
  270.  NAME:     GXXXXXXXXXXXXXXXXXXX GXXXXXXXXXXXXXX G
  271.  ADDRESS:  GXXXXXXXXXXXXXXXXXXX GXXXXXXXXXXXXXX GX GXXXXXXXX
  272.  
  273.  STOCK   DESCRIPTION                      VENDOR   EACH       TOTAL
  274.  _____   _______________________________  ______   _________  _________
  275.  GXXXX   GXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  GXXXXX   GXXXXXXXX  GXXXXXXXX
  276.  GXXXX   GXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  GXXXXX   GXXXXXXXX  GXXXXXXXX
  277.  GXXXX   GXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  GXXXXX   GXXXXXXXX  GXXXXXXXX
  278.  GXXXX   GXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  GXXXXX   GXXXXXXXX  GXXXXXXXX
  279.  GXXXX   GXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  GXXXXX   GXXXXXXXX  GXXXXXXXX
  280.  GXXXX   GXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  GXXXXX   GXXXXXXXX  GXXXXXXXX
  281.  GXXXX   GXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  GXXXXX   GXXXXXXXX  GXXXXXXXX
  282.  GXXXX   GXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  GXXXXX   GXXXXXXXX  GXXXXXXXX
  283.  GXXXX   GXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  GXXXXX   GXXXXXXXX  GXXXXXXXX
  284.  GXXXX   GXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  GXXXXX   GXXXXXXXX  GXXXXXXXX
  285.                                                    Sub Total  GXXXXXXXX
  286.                                                    Tax        GXXXXXXXX
  287.                                                    TOTAL      GXXXXXXXX
  288. XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
  289. XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
  290.  
  291.  
  292.       Depress ENTER when done.
  293.       You will then be prompted to enter the data fields for which you want
  294.  indexes on (you can search on these as keys). Enter the appropriate letter "U"
  295.  for a unique index and "K" for an index allowing duplicate entries in the first
  296.  byte of any data field you wish to have as a key. By selecting appropriate keys
  297.  you can have a very useful and flexible application. The following example
  298.  illustrates an application that can have duplicate keys on the Customer, First
  299.  Name, Address, State, or Zip code. Also it allows only a Unique key on the
  300.  INVOICE number. So that each invoice is unique.
  301.  
  302.  
  303.  XXXXXXXX                          INVOICE                            XXXXXXXX
  304.  
  305.  INVOICE:  UXXXXXXXX
  306.  CUSTOMER: KXXXXXXXX
  307.  NAME:     KXXXXXXXXXXXXXXXXXXX KXXXXXXXXXXXXXX K
  308.  ADDRESS:  KXXXXXXXXXXXXXXXXXXX KXXXXXXXXXXXXXX KX KXXXXXXXX
  309.  
  310.  STOCK   DESCRIPTION                      VENDOR   EACH       TOTAL
  311.  _____   _______________________________  ______   _________  _________
  312.  XXXXX   XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  XXXXXX   XXXXXXXXX  XXXXXXXXX
  313.  XXXXX   XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  XXXXXX   XXXXXXXXX  XXXXXXXXX
  314.  XXXXX   XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  XXXXXX   XXXXXXXXX  XXXXXXXXX
  315.  XXXXX   XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  XXXXXX   XXXXXXXXX  XXXXXXXXX
  316.  XXXXX   XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  XXXXXX   XXXXXXXXX  XXXXXXXXX
  317.  XXXXX   XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  XXXXXX   XXXXXXXXX  XXXXXXXXX
  318.  XXXXX   XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  XXXXXX   XXXXXXXXX  XXXXXXXXX
  319.  XXXXX   XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  XXXXXX   XXXXXXXXX  XXXXXXXXX
  320.  XXXXX   XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  XXXXXX   XXXXXXXXX  XXXXXXXXX
  321.  XXXXX   XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  XXXXXX   XXXXXXXXX  XXXXXXXXX
  322.                                                    Sub Total  XXXXXXXXX
  323.                                                    Tax        XXXXXXXXX
  324.                                                    TOTAL      XXXXXXXXX
  325. XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
  326. XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
  327.  
  328.       Depress the ENTER key when done.
  329.  
  330.       This concludes the buld screen process. You should see the generate screen
  331.  which if you now depress ENTER your program will be generated. If you wish to
  332.  terminate the process depress the "ESC" key. If you depress the "ESC"
  333.  everything will be lost. You will have to start form the beginning.
  334.  
  335.       By depressing the ENTER key you will have a program generated with the
  336.  name program.PAS where program is the name you entered on the main screen.
  337.  A new directory of the name "program" will be made and your program compiled to
  338.  this directory.
  339.  
  340.       You can then change to this directory CD \program and enter the program
  341.  name to execute the program. This program was called invoice so you could enter
  342.  "CD \INVOICE", depress enter and enter "INVOICE" to execute the program.
  343.  
  344.  XXXXXXXX                          INVOICE                            XXXXXXXX
  345.  
  346.  INVOICE:  XXXXXXXXX
  347.  CUSTOMER: XXXXXXXXX
  348.  NAME:     XXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXX X
  349.  ADDRESS:  XXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXX XX XXXXXXXXX
  350.  
  351.  STOCK   DESCRIPTION                      VENDOR   EACH       TOTAL
  352.  _____   _______________________________  ______   _________  _________
  353.  XXXXX   XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  XXXXXX   XXXXXXXXX  XXXXXXXXX
  354.  XXXXX   XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  XXXXXX   XXXXXXXXX  XXXXXXXXX
  355.  XXXXX   XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  XXXXXX   XXXXXXXXX  XXXXXXXXX
  356.  XXXXX   XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  XXXXXX   XXXXXXXXX  XXXXXXXXX
  357.  XXXXX   XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  XXXXXX   XXXXXXXXX  XXXXXXXXX
  358.  XXXXX   XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  XXXXXX   XXXXXXXXX  XXXXXXXXX
  359.  XXXXX   XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  XXXXXX   XXXXXXXXX  XXXXXXXXX
  360.  XXXXX   XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  XXXXXX   XXXXXXXXX  XXXXXXXXX
  361.  XXXXX   XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  XXXXXX   XXXXXXXXX  XXXXXXXXX
  362.  XXXXX   XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  XXXXXX   XXXXXXXXX  XXXXXXXXX
  363.                                                    Sub Total  XXXXXXXXX
  364.                                                    Tax        XXXXXXXXX
  365.                                                    TOTAL      XXXXXXXXX
  366.  Ent-Get F2-Get Next F3-Get Prev F4-Find F5-List F6-Add F7-Updt F8-Del F10-Util
  367.  
  368.  
  369. DEPRESS ENTER TO GENERATE THE PROGRAM
  370.  
  371.  
  372.       If at any time you wish to rebuild the program you can do so. If
  373.  you build the screen with the same length fields and in the same order
  374.  you can just re-create the application. If however you change the length of any
  375.  fields you will have to delete the data and index files before you start the
  376.  building process.
  377.  You can enter:
  378.  CD \INVOICE
  379.  DEL INVOICE.DAT
  380.  DEL INVOICE.I*
  381.  to delete the data and index files.
  382.  THIS WILL DELETE ALL DATA ON THE DATABASE. YOU CAN USE THE UTILTIY OPTION TO
  383.  DUMP THE DATA FIRST AND THEN RELOAD.
  384.  
  385.  
  386.  Note: Since the program is generated as a text file you can use any editor to
  387.  edit the program including the "TURBO" editor.
  388.  
  389.      The education part of this process begins now since you will have a Pascal
  390.  program that has been generated. Near the end of the program you will see in
  391. comments {USER CODE}. This comment is placed at an appropriate place where the
  392. screen data has been moved to the database record area and you are ready to
  393. change or manipulate the data as desired after which the appropriate action will
  394. automatically take place (retrieve, add, update, delete...). To reference the
  395. database fields you would find the data field sequence from the top to bottom,
  396. lefte to right. For instance the Last Name field would be field sequence 5 since
  397. the datae and time fields are considered data fields. If for instance you wanted
  398. to set the last name to another name you might enter in the "USER CODE" section
  399.  
  400.     Invoice.Datafld5 := 'DAVID JONES".
  401.  
  402.       Or you might want to add to an amount field by entering:
  403.  
  404.     TChr := Invoice.Datafld16;
  405.     Val(TempCHr, TempNum, CondCode);
  406.     TNum := TNum + 5;
  407.     Str(TNum, TChr);
  408.     INVOICE.Datafld16 := TChr;
  409.  
  410.      Note: There are 10 temp character and number fields TChr thru
  411.  TChr9 and TNum thru TNum9.
  412.  
  413. *N*
  414.  If for instance you wanted to add the amounts in the totals column to
  415.  the total you could Enter:
  416.  
  417.      Tchr  := Invoice.Datafld16; Val(Tempchr, Tempnum,  CondCode);
  418.      If CondCode <> 0 Then Error := 16;
  419.      Tchr1 := Invoice.Datafld17; Val(Tchr1, Tnum1,CondCode);
  420.      If CondCode <> 0 Then Error := 17;
  421.      Tchr2 := Invoice.Datafld18; Val(Tchr2, Tnum2,CondCode);
  422.      If CondCode <> 0 Then Error := 18;
  423.      Tchr3 := Invoice.Datafld19; Val(Tchr3, Tnum3,CondCode);
  424.      If CondCode <> 0 Then Error := 19;
  425.      Tchr4 := Invoice.Datafld20; Val(Tchr4, Tnum4,CondCode);
  426.      If CondCode <> 0 Then Error := 20;
  427.      Tchr5 := Invoice.Datafld21; Val(Tchr5, Tnum5,CondCode);
  428.      If CondCode <> 0 Then Error := 21;
  429.      Tchr6 := Invoice.Datafld22; Val(Tchr6, Tnum6,CondCode);
  430.      If CondCode <> 0 Then Error := 22;
  431.      Tchr7 := Invoice.Datafld23; Val(Tchr7, Tnum7,CondCode);
  432.      If CondCode <> 0 Then Error := 23;
  433.      Tchr8 := Invoice.Datafld24; Val(Tchr8, Tnum8,CondCode);
  434.      If CondCode <> 0 Then Error := 24;
  435.      Tchr9 := Invoice.Datafld25; Val(Tchr9, Tnum9,CondCode);
  436.      If CondCode <> 0 Then Error := 25;
  437.      If Error   <> 0 Then
  438.      Begin
  439.        InvoiceMsgStr := 'Error on field ';
  440.        FldSeq := Error
  441.      End;
  442.      Tnum := Tnum + Tnum1 + Tnum2 + Tnum3 + Tnum4 + tnum5
  443.                          + Tnum6 + Tnum7 + Tnum8 + Tnum9;
  444.      Str(Tnum:2, Tchr);
  445.      *where "2" is the number of bytes*
  446.      Invoice.Datafld65 := Tchr;
  447.  
  448.      The resultant changes would then be available to the Database buffer for
  449.  adds or updates.
  450.  
  451.      Every program will have a programMsgStr variable that is written after
  452.      processing and before display of screen. You can move messages to it.
  453.  
  454.      The function is held in a variable called "Function_Id".
  455.  
  456.      The function is held in the "Function_Id" as
  457.      "S" - Select          (Enter key)
  458.      "N" - Select Next     (F2)
  459.      "P" - Select Previous (F3)
  460.      "F" - Find            (F4)
  461.      "L" - List            (F5)
  462.      "I" - Insert          (F6)
  463.      "U" - Update          (F7)
  464.      "D" - Delete          (F8)
  465.  
  466.      The function is held in a variable called "Function_Id".
  467.  
  468.      E.G. If Function_Id = "I"   {If Add (Insert) Function}
  469.  
  470.      Or   Case Function_Id
  471.           "I" : <action>;
  472.           "U" : <action>;
  473.           End;
  474.  
  475.     To Change the field attributes they are kept in MAPLN (line), MAPPOS
  476.     (position), MAPLEN (length), MAPATTR (Attribute), MAPCOLR (color) arrays.
  477.     To change the color of the 5 field top to bottom left to right you could
  478.  
  479.     MAPCOLR[5] := 'B';
  480.  
  481.     The MAP** arrays are initialized in program_INIT once. After that you can
  482.     change them.
  483.     If you want to make a permenant change to the field change the constants
  484.     at the beginning of the program. That's where INIT copies the data to the
  485.     MAP** arrays.
  486.  
  487.     There are two main screen/ database record format procedures you can use
  488.     anytime. programFMT_SCRNBUF and programFMT_RECBUF.
  489.  
  490.     You can add database files and indexes following the open/create and access
  491.     routines in the program.
  492.  
  493.     SYSTEM FIELDS: The Date And Time are held in the ScreenDate And ScreenTime
  494.     Fields. To Refresh The date or time there is a Procedure GetDateTime you can
  495.     Execute. The ScreenDate field is 10 bytes and the ScreenTime Field Is 11
  496.     Bytes.
  497.  
  498.     The F10 key will change the prompts at the bottom of the screen. You can
  499.     re-build an index by placing the cursor on an index field and depressing
  500.     F1. You can dump the database with F2 and after deleting the records of
  501.     the .dat and i* files re-load with F3 and rebuild the indexes.
  502.  
  503.  
  504.       This software can be used to build a simple but efficient program
  505.  for viewing as a model or for use.
  506.  
  507.     Another thing that can be done is to combine programs by making
  508.  procedures out of them and executing them from a mainline program.
  509.  
  510.     ZOOMCHAR and FEDERAL BALANCE THE BUDGET LOTTERY were written using
  511.  BLDPAS software.
  512. *N*
  513.  
  514.                 OTHER SOFTWARE
  515.  
  516.  ZOOMCHAR/BIGCHAR is a set of two programs. BIGCHAR is for displaying/ Creating
  517.  big letters/figures and scrolling or displaying. ZOOMCHAR will scroll these
  518.  3" letters across your screen with phrases you enter. Both contain their own
  519.  database.
  520.  
  521.  FEDERAL BALANCE THE BUDGET LOTTERY is a lottery GAME that allows lottery
  522.  entries. You can draw random selections or use a DRAW TO WIN feature that will
  523.  Generate random numbers up to a Number of draws entry. If there is a completed
  524.  match with an entry it will stop and let you know. If not it will stop at the
  525.  pre set Number of draws with the entry greater than or equal to the set drawn.
  526.  You can use 1 to 8 numbers for a range of numbers from 1 to 99.
  527.  
  528.  
  529. *N*
  530.        ADDITIONAL COPIES
  531.  
  532.   __ 3.5" Disk    __ 5.25"
  533.  
  534.   #
  535.   __ OF BLDPAS   x $20.00 = _____   __ SOURCE  x $15.00 = ______
  536.  
  537.   __ OF LOTTERY  x $15.00 = _____   __ SOURCE  x $10.00 = ______
  538.  
  539.   __ OF ZOOMCHAR x $10.00 = _____   __ SOURCE  x $7.00  = ______
  540.  
  541.   Registration or purchase of one gets $5.00 off any other.
  542.   (You must have sent questionaire in or SSN so it is on Database for sponsor)
  543.  
  544.   Name:    __________________________
  545.  
  546.   Address: ___________________________
  547.  
  548.   City:    _______________  ST: _____  ZIP: ___________    COUNTRY: _________
  549.  
  550. Sponsor Number: _______________ Name: ____________________________
  551. (Enter SSN and pass around. Fill out questionaire. Every order gets you $1.00)
  552.  
  553.  
  554.   DBA TEKSERV, %William A. Phillips, RT1 BOX 397 Piney Grove Rd., Danbury, Nc
  555.   27016
  556.  
  557. *N*
  558.             COPYRIGHT
  559.  
  560. A Copyright has been applied for and DBA TEKSERV claims all rights to this
  561. product. However you are encouraged to use this product for any activity
  562. including making money as long as the money made is not for the sale of this
  563. product. This product is not to be copyied for other persons PC's nor to be
  564. given away to others. It is intended for the owner's PC's.  The owner is allowed
  565. to operate the product on multiple PC's that the owner owns in a private sense.
  566. Buisiness, Corporate, and Government agencies are only allowed one copy per
  567. machine. However a discount can be applied for multiple purchases by these
  568. agencies.
  569.  
  570. *N*
  571.         SPONSOR PROGRAM
  572.  
  573.      If you pass the following additional copies request on to a friend put
  574. your SSN in the Sponsor field. Then if you tell DBA TEKSERV how you liked the
  575. product and if there are any problems or IDEAS you have and include your SSN
  576. on this Questionaire you will receive a dollar if the additional copies form
  577. comes in with an order. Make as many copies as you wish with your sponsor
  578. number. For every order with the Sponsor number you will get a dollar.
  579.  
  580.   SSN:  _________________
  581.  
  582.   NAME: _________________________
  583.   ADDR: _________________________ ST: ____ ZIP: __________
  584.  
  585.   How well did you like BLDPAS Program?
  586.  
  587.   ________________________________________________________________________
  588.  
  589.   Compare it to other software as far as program productivity Good, Bad, or
  590.   Ugly.
  591.  
  592.   _________________________________________________________________________
  593.  
  594.   How easy is BLDPAS to use? Any New Ideas for it?
  595.  
  596.   ___________________________________________________________________________
  597.  
  598.   Would you be interested in purchasing a 3" LETTER SCROLLING game. It is
  599.   a phrase scrolling program that has a database. It can also scroll ASCII
  600.   Text files like a billboard.
  601.  
  602.   ___ YES  ___ NO
  603.  
  604.   Do you have an interest in a Lottery game which allows you to make entries
  605.   and then you can have an auto random draw to win?
  606.  
  607.   ___ YES  ___ NO
  608.  
  609.  
  610.   AGE: ____
  611.   SEX: ____
  612.  
  613.   OCCUPATION: ________________________
  614.  
  615.  
  616. *N*
  617.                 DISCLAIMER
  618.  
  619.      This program is intended for program development. DBA TEKSERV is not
  620. responsible for the illegal use or misuse of this program.  DBA TEKSERV is not
  621. responsible for any such accusitory "DEFECTS" in program design or operation.
  622. This product is sold "AS IS".
  623.  
  624.                 RETURN POLICY
  625.  
  626.      Any returns of this product will be subject to a 20%
  627. restocking Charge to the customer.
  628.  
  629.                 HELP POLICY
  630.  
  631.      DBA TEKSERV encourages correspondence to DBA TEKSERV concerning the
  632. appearance, operation, or problems associated with this product. Although no
  633. guarantee is given for "FIXING" any inherent problems, "IRRITATIONS", etc. All
  634. available effort and time will be given to HELP the customer enjoy this game if
  635. posslible.
  636.  
  637.                 HEALTH POLICY
  638.  
  639.      DBA TEKSERV is not responsible for any damage the customer may incur from
  640. the computer or the operation of the game in any financial, or health related
  641. area. The operation of you computer and software is considered by DBA TEKSERV to
  642. be the responsibility of the customer. The color combinations of the game were
  643. chosen to attract the customers attention in an entertaining way. So the
  644. customer is to use this product at their own risk. This policy is stated
  645. due to allegations of damage due to radion of the computer montitor to the
  646. eyes and electomagnetic waves. This game is assumed by DBA TEKSERV to be no
  647. more damaging than any other game presently available.
  648.  
  649. *N*
  650.  _____________________                                              ________
  651.  _____________________
  652.  _____________________                                               STAMP
  653.  
  654.                                                                     ________
  655.  
  656.  
  657.  
  658.                       DBA TEKSERV
  659.                       RT1 Box 397 Piney Grove
  660.                       Danbury, NC 27016
  661.  
  662. *N*
  663.  
  664.            Federal Balance the Budget Lottery Promotional Entry
  665.  
  666.     This is an entry for you to enter 4 numbers from 1 to 36. DBA TEKSERV
  667.  is going to hold a PROMOTIONAL lottery by DEC 31, 1993. The winner(s)
  668.  will get/split $100.00 in prizes. The lottery will only be held if there
  669.  are more than 100 participants. The lottery will be using the Draw to Win for
  670.  an exact match. The first entry(s) that match will be the winners. This
  671.  entry is an incentive for owners of the FEDERAL BALANCE THE BUDGET LOTTERY
  672.  or ZOOMCHAR/BIGCHAR. However all entries are welcome.
  673.  
  674.  NAME    ___________________________ SSN ____________________ Phone: __________
  675.  ADDRESS ___________________________ ST ____ ZIP ____________
  676.  
  677.     (4 numbers 1 thru 36 - Do not use leading zeroes)
  678.  
  679.     __ __ __ __
  680.  
  681. *N*
  682.                 ZOOMCHAR/BIGCHAR
  683.  
  684.      ZOOMCHAR/BIGCHAR are programs that allow the use/creation of big
  685. letter's and figures. Zoomchar will scroll these letter's/figures across
  686. your screen in color. You can enter phrases on the database and chain them
  687. You can also scroll ASCII text files. Use for Messaging, Education, Screen
  688. saver. Normal registration Fee $10.00.
  689. *N*
  690.                  ORDER FORM
  691.  
  692.    Orders of 10 or more $15.00 each. Owners of LOTTERY/ZOOMCHAR/BIGCHAR $15.00
  693. __ Copies BLDPAS  At $20.00 Total = ($20.00 times number of copies) = _______
  694.  
  695.    Orders of 20 or more or owners of FEDERAL BALANCE BUDGET LOTTERY $5.00
  696. __ Copies Zoomchar At $7.50 Total = ($7.50 times number of copies)  = _______
  697.  
  698.    Every 10 copies of Lottery,Zoomchar or BLDPAS get 1 free.
  699.  
  700.  __ 3.5" disk  __ 5.25" disk
  701.  
  702. Send to: name    ________________________________________ SSN: ___________
  703.          address __________________________________
  704.          city    __________________________________  ST ___ ZIP __________
  705.  
  706.  DBA TEKSERV,RT1 BOX 397 PINEY GROVE RD,DANBURY, NC 27016
  707.  
  708. Sponsor Number: _______________ Name: ____________________________
  709. (Enter SSN and pass around. Fill out questionaire. Every order gets you $1.00)